Option Explicit
Sub L_Sample010()
    'ոL_Data03
    Dim mySht    As Worksheet
    Dim myOleF   As Shape
    Dim myOleObj As OLEObject
    Set mySht = Worksheets("L_Data03")			'N
    With mySht
        'wno
        Set myOleObj = .Shapes(1).OLEFormat.Object
        MsgBox myOleObj.Name
        'Set myOleObj = .OLEObjects(1)
        'MsgBox myOleObj.Name
    End With
    Set myOleObj = Nothing					'
    Set mySht = Nothing
End Sub
